home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  62 lines
  1. 10 ;RD TRK 2
  2. 80 SCRIN LDY #$00; SCREEN FORMATS & INPUT
  3. 85 STY HLFFLG; RESET HLFFLG
  4. 90 PRNT LDA TRKMES,Y; ENTER TRACK
  5. 100 BEQ LP4
  6. 110 JSR PRINT
  7. 120 INY
  8. 130 JMP PRNT
  9. 140 LP4 JSR GET
  10. 150 CMP #$00
  11. 160 BEQ LP4
  12. 170 JSR PRINT;PRINT 1ST KEYSTROKE
  13. 180 STA TRK
  14. 190 LP5 JSR GET
  15. 200 BEQ LP5
  16. 210 JSR PRINT;PRINT 2ND KEYSTROKE
  17. 220 STA TRK+1; CHANGE ASCII TO HEX
  18. 230 LDA TRK
  19. 240 AND #$0F;CLEAR HIGH BITS
  20. 250 STA TRK
  21. 260 ASL:ASL; = TIMES 4
  22. 270 CLC
  23. 280 ADC TRK; = TIMES 5
  24. 290 ASL; = TIMES 10
  25. 300 STA TRK
  26. 310 LDA TRK+1
  27. 320 AND #$0F
  28. 340 CLC
  29. 360 ADC TRK
  30. 370 STA TRK;NOW HOLDS HEX NUMBER
  31. 380 STA TKSEC
  32. 390 JSR CLRHD; FILL $7F00-$7FFF WITH 0'S
  33. 400 LDY #$00
  34. 410 ASC LDA TRKMES1,Y; PRINT HALF TRACK
  35. 421 BEQ ASC1
  36. 425 JSR PRINT
  37. 426 INY
  38. 430 JMP ASC
  39. 440 ASC1 JSR GET
  40. 445 CMP #$00
  41. 446 BEQ ASC1
  42. 450 JSR PRINT
  43. 460 CMP #$4E; EQUALS "N"
  44. 470 BEQ ASC2
  45. 480 LDA #$01
  46. 490 STA HLFFLG; SET HALF TRACK FLAG
  47. 500 ASC2 LDY #$00
  48. 510 ASC3 LDA TRKMES2,Y; PRINT ZONES
  49. 520 BEQ ASC4
  50. 530 JSR PRINT
  51. 540 INY
  52. 550 JMP ASC3
  53. 560 ASC4 JSR GET
  54. 570 CMP #$00
  55. 580 BEQ ASC4
  56. 590 JSR PRINT
  57. 600 SEC:SBC #$31:TAY; BECOMES HEX 1 TO 4
  58. 610 LDA DENS1,Y
  59. 620 STA SPD+1; SET CONTROLLER BYTE IN DISK PROGRAM
  60. 650 ASC7 RTS
  61. 800 .FILE RD TRK 3
  62.